#!/usr/bin/perl

use CGI qw(:standard);
use XML::Simple;
use LWP::Simple qw(get);

# Toma de datos a partir de la petición de Javascript
my $nombre = param('nombre');

# Abrir el XML con los usuarios y comprobar si el usuario es nuevo.
my $url = 'http://localhost:8080/exist/rest//db/proyecto_aap/usuarios.xml';
my $xml = XMLin(get($url));
my @users = @{$xml->{'usuario'}};
my $found = 0;

foreach my $user (@users) {
	if ($user->{'nombre'} eq $nombre) {
		$found = 1;
	}
}

print header( -type => 'text/html' );
print $found, "\n";
